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8 DECLARATIONS 
(3) 1 COBRTL Vector 


45 
COBSVECTOR - Entry vectors for COBRTL.EXE * 3* ~~ 4 23:3 AX/VMS Macro v04-00 Pp 
sonsy ⸗ 138e 95:29:99 FOREN ES izeg. 2% ly 
TITLE C€ CTOR = Entr scone for _COBRT L.EXE 
“Toene 5 9E5N55 . File: COBVECTOR.MAR Edit: LGB1009 


—A 


COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
DIGITAL EQUIPHENT NT CORPORATION, MAYNARD. MASSACHUSETTS. 


OFTWARE IS FURNISH 
ACCORDANCE WITH vie ren OF SUCH nt AND WITH THE 
F THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
EREOF MAY NOT B E 
RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
* 
* 
* 
* 
* 
* 
* 
TRANSFERRED. * 
* 
* 
* 
# 
* 
* 
* 
* 


SS — — — — — — — 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
—8 NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH IS 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 


eseeeeeeeeeeeeeeeeeees 


RHAAAAAAAAAEAAAAAAEAEAAAAEEAAAAAAAAAAAAAAEAAAAAAAAARAAAAAAAAEAEAAAAAAAEAAEAEEE 


SoOoQoooooooooooooooooooooooo 


SOooooooooooooooooooooooooooooooooooooooooo 


COoooooooooooooooo 


+ 
FACILITY: Run-Time Library - COBOL Language Support 
ABSTRACT: 


22222222222 


ODOoooooooooood 
OOooooooooooooooo 


This module contains the entry vector definitions for the 
VAX-11 Run-Time Library shareable image COBRTL.EXE 


ENVIRONMENT: User mode, AST Reentrant 
AUTHOR: Steven B. Lionel, CREATION DATE: 29-October-1982 
MODIFIED BY: 


1- ~$0) = = Aa antes sat F EOBSSHANDLER s 
1 —3 SSHANDLER 3 that VMSRTL can reference the mask. 
-003 - ie entries for COBSDISPLAY and COBS$POS ~5RASE. bee 20-May-1983 
4- hdd ont 080 code that can be gherec . LEB 

ane raYe (foun ring an RTL test bu id, so no affect 


on pr — LE - 
1-006 - on ograns ference yg By: COBSDISPLA PLAY_SCR to COBSDISP_SCR as well $38 
CR of pan 43 —2 F 98 


C 
3 = try COBSSRET_A_AB PREV to module EOBSDISPLAY. * 8, pies 
= agg pone es COBSPOS_ACCEPT JJ cOBSPOS -DISPLAY to to SoesPo 5 aAse. 


ANEW 2 O ODNA NEW 9 OD OS OONAULS WP OWONOUS UW 


PUPS PPP LLL ELE 


SoooooooooessoOo 


5 
Copeyecton - Entry vectors for COBRTL.EXE . 177360 - 1386 $3: 28: 98 yeasyes 8 4-00 Page (3) 


JMP 
-ENDM 
3+ 
3; Macro to define an entry vector for a JSB entry point 
“Races VJSB NAME 

TRN NAME 


~ TRANSFER NAME 
in ~~ 


DOOOOOSOSOooooooooSo: 


OOooooooooooo 


DECLARATIONS 6-SEP-1 COBRTL.S ONVECTOR. MAR; 1 

2 . -SBTTL DECLARATIONS 

3 LIBRARY MACRO CALLS: 

: ; NONE 

4 > EXTERNAL DECLARATIONS: 

66 ; -DSABL GBL : Force all external symbols to be declared 

68 > MACROS: ( 

: { 

, 

8 1g i "heché to define an entry vector for a CALL entry point 

4 ( 

09 5 *8 VCALL NAME, ALTMSK ( 

NAME ( 

0 TRANSFER NAME { 

80 if B ALTMSK { 

0 MASK NAME ( 

000 - o LFF ( 

099 MASK ALTMSK ( 

0 -ENDC ( 

00 NAME +2 | 

000 J 

9 " 

0 J 

| 

{ 

( 

( 

( 

{ 

{ 

{ 

{ 

{ 


©0000 .0090909000000 00000000 ~V 
NAME WO OONAOULS WN Oo eNO 
* 


9 
97 3+ 
38 : Macro to define an entry vector for a condition handler whose actual 
99 ; routine address has a different name from the vector entry. 


100 ;- 

101 

1 eMACRO VHANDL NAME, INTNAME 
198 -EXTRN INTNAME 

104 NAME:: 

105 - TRANSFER NAME 

1 — MAsx INTNAME 

1 jue INTNAME +2 

1 8 ~ENDM 

1% 

i 3 Macro to define an alias for the next vectored entry point 
113° 

114 eMACRO ALIAS NAME 
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DECLAR 


oooogze 


6-SEP-1 
TRANSFER NAME 
SENDA 


COBRTL.S 


EQUATED SYMBOLS: 

3 NONE 

; OWN STORAGE : 

; NONE 

; PSECT DECLARATIONS: 


-PSECT SCOBSVECTOR PIC, USR, CON REL gitt- SHR, 
EXE, RD, NOWRT, 


— — — — — — — — — — — — — — — — — — 
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-SBTTL COBRTL Vector 


3+ 
; Define vectored or points for the COBOL Language Support procedures 
: by module in alphabetical order. 


; any additions to this file should be reflected in 

; COMS:COBRTLVEC.DAT. ALL new entry points must be appended to the end 
; of the List. NEVER change existing entries unless you are sure that 
; what you do won't break existing programs. 


: Module COBSSHANDLER 
VHANDL COBSHANDLER COBSSHANDLER 


; Module COBSACCEPT 
VCALL COBSACCEPT 


; Module COBSACC_DATE 
VCALL COBSACC_DATE 


Module COBSACC_DAY 
VCALL COBSACC_DAY 


Module COBSACC_DAYWEEK 
VCALL COBSACC_DAYWEEK 


Module COBSACC_TIME 
VCALL COBSACC_TIME 


Module COBSCVTPQ_R9 
VJSB  COBSCVTPQ_R9 


Module COBSCVTQP_R9 
VJSB COBSCVTQP_R9 


Module COBSCVTRPQ_R9 
VJSB COBSCVTRPQ_R9 


Module COBSCVTROP_R9 
VJSB COBSCVTROP_R9 


Module COBSDISPLAY 
VCALL COBSDISPLAY 
VCALL COBSDISP_NO_ADV 


Module COBSD1VQ_R8 
VJSB COBSD1VQ_R8 


Module COBSERROR 
VCALL COBSERROR 


; Module COBSINTARI 
VCALL (COB 


SADDI 

Vv speecey 

VCALL COBSDIV 
COBSO1V1_OSE 


COBRTL.SRCJCOBVECTOR.MAR; 1 
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E 


Tal «aes es” os —_ 


dD 6 
COBRTL vector» 0” “OPATE“EXE — 9% 3) 


poppet ren 


3 Module COBSINT 
VJSB 


— a a ——— —— 
50! 510 DDD 


28 zw ‘0 COdODOO NNN 


24 es he 


: Module COBSIOE 
VCALL 


3; Module COBSMU 
VJSB ue 


3 Module COBSPAUSE 
VCALL COBSPAUSE 


< 
qj 
wn 
o 
g° Bn 8388388888888888882 De 


$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
P 
& CEPTION 
8 

$ 


MULQ_R8 


End of initial COBRTL vector. ALL subsequent additions must be made 
;_after this point. 


“- 


; The following entr 


Las “eee so that the vector of VMSRTL can reference 
_the mask of COBSSHANDLE 


NOU FU 2 ODO NOUE WN O00 NOU UO NOU UN —OO09 NO 
. "* 


PEPER EPMA AAA AIUIPOPONIPONIPONININ) 4 BOO OO 


1 3 Module COBSSHANDLER 

1? VCALL COBSSHANDLER 

148 :¢ 

9 3 Add the following entries for the new version of COBOL. 
148 : 

148 : Module COBSDISPLAY 

148 VCALL COBSDISP_SCR 

' VCALL COBSDISP_SCR_NO_ADV 
158 ; Module COBSPOS_ERASE 

i : VCALL COBSPOS_ERASE 

: 

1 
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et COBRTL Vector eT CR CME COSTES TST TAL ORTOP ana 
3 Add all remaining “* specific code that can be shared (note that 
3; the exceptions are tables, COBSFIND_NAME, COBSCALL, COBSCANCEL, 
; COBSRMS_BLOCKS, COBSDHANDL, COBSSRESTVA. 


3; Module COBSCVTDQ_R8 

VJSB COBSCVTDQ_R8 
Module COBSCVTFQ_R8& 

vJSB COBSCVTFQ_R8 
Module COBSCVTQD_R8 

VJSB COBSCVTQD_R8 
Module COBSCVTQF_R8& 

VJSB COBSCVTOF_R8 
Module COBSCVTRDQ_R8 

VJSB  COBSCVTRDQ_R8 
Module COBSCVTRFQ_R8 

vJSB COBSCVTRFQ_R8 
Module COBSDBEXCEPTION 

VCALL COBSDBEXCEPTION 
Module COBSEXPI 


VCALL COBSEXPI 
VCALL COBSEXPI_OSE 


; Module COBSLINAGE 
VCALL COBSINIT_LINAGE 
VCALL COBSLINAGE 
VCALL COBSTERM_LINAGE 
Module COBSSET_SWITCH 
VCALL COBSSET_SWITCH 
3; Module COBSSWITCH 
VCALL COBSSWITCH 
3; Module COBSACCEPT (new entry to an already existing shared module) 


VCALL COBSACC_SCR 


PEA S OONAMNE WIS ONAN EWN 9 O OO OVWONAULE UNO 00 
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CYy¥Segor® for commri.exe  * qprue tztz GB: YARZYRS tae AHR aan 
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1 


RW MMMMMMNoOCS 


—_ 
PUM SOR NEN 


3 Module COBSDISPLAY (new entry to an already existing shared module) 
VCALL COBSSRET_A_AB_PREV 
: Module COBSPOS_ERASE (new entries to an already existing shared module) 


VCALL COBSPOS_ACCEPT 
VCALL COBSPOS“DISPLAY 


«END : End of module COBSVECTOR 
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SET oSuliCH 
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ERM_LINAGE 
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Fee eran anscanmaeaowah 


! Psect synopsis ! 


wean atananoenccoa} 


PSECT name Allocation PSECT No. Attributes 


écopsvEcion Wornnz f woes Bh e 93} MOORE Use OE 
for ecemeco moose es eemaasaay 


! Performance indicators ! 


— seen cen eease seems sease & 


22 
=_—— 


aes LCL NOSHR NOEXE NORD NOWR 


BYTE 
RE LCL SHR EX RD NOWR L 


Phase Page faults CPU Time Elapsed Time 


nitialization 0 : 

processing 134 : 
Pass 101 : 
Symbol table sort : 
Pass 7 : 


SQOOMOOWwWS 
WMS FOWWOA 


Assembler run totals 35 


r78 working set Limit wes yoo pages. 
rv 3 bytes { pages) of virtual memory were used to buffer fhe intermediate code. 
here were 10 pages of symbol table space al 24 d to hold 62 non-local and 0 local symbols. 
i source lines were read in Pass 1, produc ng | object records in Pass 2. 
pages of virtual memory were used to define & macros. 


— — ů — em oh 


; Macro library statistics ! 


emeeneercec= sea tensemaeceeaa} 


Macro Library name Macros defined 
_$255$DUA28: [SYSLIBISTARLET.MLB;2 — —* 
O GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 
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